From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 3 Mar 1993 20:49:21 +0000 (+0000)
Subject: (rmail-get-new-mail): Reset read-only after find-file.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~97054
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=449783e911271fd1382784168aef1008a5e73c14;p=emacs.git

(rmail-get-new-mail): Reset read-only after find-file.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e58a2a8e5c4..d300398361e 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -489,6 +489,7 @@ argument causes us to read a file name and use that file as the inbox."
   (or (verify-visited-file-modtime (current-buffer))
       (progn
 	(find-file (buffer-file-name))
+	(setq buffer-read-only t)
 	(if (verify-visited-file-modtime (current-buffer))
 	    (rmail-forget-messages))))
   (rmail-maybe-set-message-counters)